home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / pcoef < prev    next >
Internet Message Format  |  1995-03-31  |  4KB
  1. From helens!relgyro!ucbvax!ucsd!usc!samsung!uakari.primate.wisc.edu!sdd.hp.com!hp-pcd!hpcvra!billw Mon May 14 16:31:35 PDT 1990
  2. Status: RO
  3.  
  4. Article 1624 of comp.sys.handhelds:
  5. Path: helens!relgyro!ucbvax!ucsd!usc!samsung!uakari.primate.wisc.edu!sdd.hp.com!hp-pcd!hpcvra!billw
  6. >From: billw@hpcvra.CV.HP.COM (William C Wickes)
  7. Newsgroups: comp.sys.handhelds
  8. Subject: Re: syseval
  9. Message-ID: <21580094@hpcvra.CV.HP.COM>
  10. Date: 14 May 90 18:00:24 GMT
  11. References: <12587137858010@osu-20.ircc.ohio-state.edu>
  12. Organization: Hewlett-Packard Co., Corvallis, OR, USA
  13. Lines: 22
  14.  
  15. You can't use HP-28 SYSEVAL addresses on an HP-48!
  16.  
  17. Here's the PCOEF program in HP-48 terms:
  18.  
  19. <<
  20.    3   DUPN   TYPE   SWAP   TYPE   ROT
  21.    TYPE   3   ->LIST   { 0   6   9 }
  22.    IF   ==
  23.    THEN   DUP   1   +   ->   n
  24.       <<   #18CEAh   SYSEVAL  COERCE
  25.       SWAP
  26.          #53438h   SYSEVAL
  27.          #74D0h   SYSEVAL
  28.          #38104h   SYSEVAL
  29.          DROP   #7497h   SYSEVAL
  30.          1   n
  31.          FOR   m   m   ROLL   COLCT
  32.          NEXT
  33.          n   ->LIST
  34.       >>
  35.    END
  36. >>
  37.  
  38.  
  39. From helens!relgyro!ucbvax!ucsd!swrinde!zaphod.mps.ohio-state.edu!sdd.hp.com!hp-pcd!hpcvra!billw Mon May 14 16:31:55 PDT 1990
  40. Status: RO
  41.  
  42. Article 1625 of comp.sys.handhelds:
  43. Path: helens!relgyro!ucbvax!ucsd!swrinde!zaphod.mps.ohio-state.edu!sdd.hp.com!hp-pcd!hpcvra!billw
  44. >From: billw@hpcvra.CV.HP.COM (William C Wickes)
  45. Newsgroups: comp.sys.handhelds
  46. Subject: Re: syseval
  47. Message-ID: <21580095@hpcvra.CV.HP.COM>
  48. Date: 14 May 90 18:15:23 GMT
  49. References: <12587137858010@osu-20.ircc.ohio-state.edu>
  50. Organization: Hewlett-Packard Co., Corvallis, OR, USA
  51. Lines: 22
  52.  
  53. Whoops!  Wrong version. Here's one that might even work on an HP-48:
  54.  
  55. <<
  56.    3   DUPN   TYPE   SWAP   TYPE   ROT
  57.    TYPE   3   ->LIST   { 0   6   9 }
  58.    IF   ==
  59.    THEN   DUP   1   +   ->   n
  60.       <<   #18CEAh   SYSEVAL  COERCE
  61.       SWAP
  62.          #549CCh   SYSEVAL
  63.          #74D0h   SYSEVAL
  64.          #59373h   SYSEVAL
  65.          DROP   #7497h   SYSEVAL
  66.          1   n
  67.          FOR   m   m   ROLL   COLCT
  68.          NEXT
  69.          n   ->LIST
  70.       >>
  71.    END
  72. >>
  73.  
  74. The above should work on any production HP-48SX.  Sorry for the confusion.
  75.  
  76.  
  77. From helens!relgyro!ucbvax!ucsd!usc!samsung!uakari.primate.wisc.edu!sdd.hp.com!hp-pcd!hpcvra!billw Thu May 17 14:11:17 PDT 1990
  78. Status: RO
  79.  
  80. Article 1649 of comp.sys.handhelds:
  81. Path: helens!relgyro!ucbvax!ucsd!usc!samsung!uakari.primate.wisc.edu!sdd.hp.com!hp-pcd!hpcvra!billw
  82. >From: billw@hpcvra.CV.HP.COM (William C Wickes)
  83. Newsgroups: comp.sys.handhelds
  84. Subject: Polynomial Coefficients PCOEF
  85. Message-ID: <21580097@hpcvra.CV.HP.COM>
  86. Date: 16 May 90 16:12:39 GMT
  87. Organization: Hewlett-Packard Co., Corvallis, OR, USA
  88. Lines: 34
  89.  
  90. In a response to a previous note, I listed the HP 48SX version of the PCOEF
  91. program from the HP 28S Mathematical Applications Book.  Unfortunately,
  92. both tries to list the program were incorrect, the first because
  93. the SYSEVAL's were wrong, and the second because I left in a comment
  94. word "COERCE" that should have been deleted.  Anyway, here is the
  95. correct version:
  96.  
  97. <<
  98.    3   DUPN   TYPE   SWAP   TYPE   ROT
  99.    TYPE   3   ->LIST   { 0   6   9 }
  100.    IF   ==
  101.    THEN   DUP   1   +   ->   n
  102.       <<   #18CEAh   SYSEVAL
  103.       SWAP
  104.          #549CCh   SYSEVAL
  105.          #74D0h   SYSEVAL
  106.          #59373h   SYSEVAL
  107.          DROP   #7497h   SYSEVAL
  108.          1   n
  109.          FOR   m   m   ROLL   COLCT
  110.          NEXT
  111.          n   ->LIST
  112.       >>
  113.    END
  114. >>
  115.  
  116. 195 bytes, checksum #6548h (for the program object).
  117.  
  118. This program expects to find an algebraic expression in level 3, a name
  119. in level 2, and a number in level 1, where the expression is taken
  120. as a polynomial of order "number" in the variable "name".  It returns
  121. a list of the polynomial coefficients in order of decreasing power.
  122.  
  123. I apologize for the mixups.
  124.  
  125.  
  126.